Using plotly to compare 'AT&T (1961) The World's Telephones'
Code:
library(plotly)
data("WorldPhones")
df <- data.frame(WorldPhones)
x <- rownames(df)
p <- plot_ly(df, x = ~x, y = ~N.Amer, name = 'N.Amer',
type = 'scatter', mode = 'lines+markers') %>%
add_trace(y = ~Europe, name = 'Europe', mode = 'lines+markers')